{************************************************************************************************************************************************************
*                          DESENVOLVEDORES: Denis Tobias; Diogo Oliveira; Marcel M. Marum; Marcos F. Rachid; Rodrigo M. Botelho
*                                       ORIENTADOR e DESENVOLVEDOR: Prof.Dr. Eraldo Pereira Marinho
*
*                                                           Arquivo: entrada.pas
*
************************************************************************************************************************************************************}

const    maxsize = 80;
type     line = array[1 .. maxsize] of char;

Procedure rotadicao();
		var
			x, a, b: real;
		Begin
			x:=a+b;
		end;

function COUNTLETTERS ( words : line) : integer; 
	var      loopcount : integer;                   
	var      x, a, b: real;
	type     line2 = array[1 .. maxsize] of char;
	function funcao (param1, param2 : string) : boolean;
		var compare : boolean;
		{var x,a,b: real;}
		procedure trytest (variavel1, variavel2 : integer);
		begin
			variavel1:=variavel1 + variavel2;
		end;
		begin
		compare := false;
		if param1 = param2 then
			compare := true;
		funcao := compare
		end;

	begin
        loopcount := 1;
        while (words[loopcount] <> '.') and (loopcount <= maxsize) do
        	begin	 
	        loopcount := loopcount + 1;
                COUNTLETTERS := loopcount - 1
      		end;
      
	end;

var   oneline : line;
      letters,aux : integer;
      testchar: char;
BEGIN
	letters := COUNTLETTERS( oneline ); 
	testchar := 'a';
END.
